﻿<%
'****************************************
' xnxf_dwz 子菜单
'****************************************
Function xnxf_dwz_SubMenu(id)
	Dim aryName,aryPath,aryFloat,aryInNewWindow,i
	aryName=Array("首页")
	aryPath=Array("main.asp")
	aryFloat=Array("m-left")
	aryInNewWindow=Array(False)
	For i=0 To Ubound(aryName)
		xnxf_dwz_SubMenu=xnxf_dwz_SubMenu & MakeSubMenu(aryName(i),aryPath(i),aryFloat(i)&IIf(i=id," m-now",""),aryInNewWindow(i))
	Next
End Function

'发送数据
Function doRequest(postData)
	Dim xmlhttp
	Set xmlhttp=Server.CreateObject("MSXML2.ServerXMLHTTP")
	xmlhttp.Open "POST","http://dwz.cn/create.php",false	
  xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
	xmlhttp.send("url="&Server.URLEncode(postData))
  'Response.Write xmlhttp.responseText&"<br>"
	Set doRequest=toObject(xmlhttp.responseText)
	Set xmlhttp=Nothing
End Function
%>
<script language="javascript" type="text/javascript" runat="server">
function toObject(json) {
eval("var o=" + json);
return o;
}

function getItem(obj,Num,Name){
return obj[Num][Name];
}
</script>